www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\admin_usergroup\D_del_user.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->





<%
AJAXshowLoader()


%>



	<%


err.clear

biao2="[ND_user]"
sys_content_type=trim(request("sys_content_type"))
if find_dataw("qitashezhi123","0",14)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if


if request("byname")="1" then

set addxx=server.CreateObject("adodb.recordset")
addxx.open "SELECT * from  [nd_user]   where  [username]='"&request("delname")&"'",conn,1,1


else

set addxx=server.CreateObject("adodb.recordset")
addxx.open "SELECT * from [nd_user]   where  id="&request("id"),conn,1,1

end if



if not addxx.eof then

delname=addxx("username")
deliddd=addxx("id")
end if





if request("byname")="1" then




set addw=server.CreateObject("adodb.recordset")
addw.open "select * from [nd_user]  where [username]='"&request("delname")&"'",conn,1,1


conn.execute("delete from [music] where userid='"&addw("id")&"'")

conn.execute("delete from "&biao2&" where [username]='"&request("delname")&"'")

else

conn.execute("delete from [music] where userid='"&request("id")&"'")

conn.execute("delete from "&biao2&" where id="&request("id"))

end if


'--------------------del bbs info:




set bbs=conn.execute("select*from bbsinfo")
sty="all"
tlinfo=bbs("tlinfo")
tli=split(tlinfo,"|?|")

alltb=tli(8)
atb=split(alltb,"|")
tnum=ubound(atb)


conn.execute("delete*from bbstl where [name]='"&delname&"'")
conn.execute("delete*from [admin] where [name]='"&delname&"'")
conn.execute("delete*from [online] where [name]='"&delname&"'")
conn.execute("delete*from [hand] where tname='"&delname&"' or [name]='"&delname&"'")
for i=0 to tnum
conn.execute("delete*from bbs"&atb(i)&" where [name]='"&delname&"'")
next
set new1=conn.execute("select top 1 [username] from nd_user order by id desc")
if not new1.eof then
name=new1("username")
set new1=nothing
conn.execute("update [bbsinfo] set usernum=usernum-1,newuser='"&name&"'")
end if






'--------------------del blog info:


conn.execute("delete*from [blog] where [username]='"&delname&"'")
conn.execute("delete*from [comment] where [comment_user]='"&delname&"'")
conn.execute("delete*from [subject] where [username]='"&delname&"'")
conn.execute("delete*from [message] where [mainuser]='"&delname&"'")

conn.execute("delete*from [ND_userphotos] where [userid]='"&deliddd&"'")



if delname="" or err.number<>0 then
%>


<script language="javascript">
alert("删除失败!");


</script>
删除失败!

<%
else

%>
<script language="javascript">
alert("删除成功");
self.location="D_admin_user.asp";

</script>





<%

end if
AJAXcloseLoader()
%>